約 1,908,816 件
https://w.atwiki.jp/hitkik/pages/27.html
環境変数一覧 HTTP環境変数 詳しい HTTP環境変数2 わかりやすい 変数 # 配列の初期化 @week = ( sun , mon , tue , wed , thu , fri , sat ) ; # 要素への参照 "mon"が表示されます print $week[1] ; # ハッシュの初期化 %week = ( sun , 始まり , wed , 中日 , fri , 週末 ) ; # 要素への参照 "週末"が表示されます print $week{fri} ; 以下広告
https://w.atwiki.jp/ljhvs/pages/116.html
データベースCGI フリー ・ シェアウェア CGI提供サイト CGIKON ( シージーアイコン ) http //www.yumemaboroshi.net/guest/us-re-search1.php サイト内全文検索
https://w.atwiki.jp/soromon_com/pages/39.html
これもとくに説明するところがないところ # Sub Cbattle Display # sub cbattle_dis { form_table( up , 100% ,1); reload; print CBTL; 港町「$cname」($owname支配下) /td /tr tr td align=center 「$cname」残HP:$chp pt /td /tr tr td input type=radio name=atktype value= 0 checked 武力攻撃 br [戦闘力に応じてダメージ] br input type=radio name=atktype value= 1 破壊工作 br [$atkfee Gで $cityatked ptのダメージ] br input type=hidden name=mode value= cbattle_atk CBTL id_ps; submit_button; form_table( down ); } # Sub Cbattle Attack # sub cbattle_atk { get_me($F{ id }); if ($action ne $F{ reload }) { play; exit } if ($F{ atktype } $money $atkfee ) { play( 資金が足りません ); exit } if (!$F{ atktype } $#ship_ind 0 ) { play( 船がありません ); exit } cb_limit; require csys.cgi ; get_city; if ($F{ atktype }) { $chp -= $cityatked; $money -= $atkfee; if ( $chp 0 ) { msg( $cnameに$cityatked ptのダメージを与えました! ) } } else { my $i_pwr = int($atk + $sailor/10 + rand($b_flac) - ($b_flac / 2) ); if ($i_pwr 0 ) { $i_pwr = 0 } my $u_pwr = $citypwr + int( rand($citypwr) - $citypwr/2); ship_data; $i_atked = int(rand($#ship_ind + 1)); $iatked_hp = $ship[$i_atked][2] - $u_pwr; $chp -= $i_pwr; if ($iatked_hp = 0 ) { i_lost; msg( $ship[$i_atked][4]は撃沈されました! ); add_record( $cnameに $ship[$i_atked][4]を 撃沈されました! ) } else { splice(@ship_ind , $i_atked , 1 , $ship[$i_atked][0],$ship[$i_atked][1],$iatked_hp,$ship[$i_atked][3],$ship[$i_atked][4] ); } if ( $chp 0 ) { msg( $cnameに$i_pwr ptのダメージを与えました! ) } } $action = ; if ( $chp = 0 ) { require event.cgi ; set_city; unlink( $citydir/$port\.dat ); msg( $cnameを壊滅させました!! ); add_record( $cnameを滅ぼす ); $piracy += 5000; $trade = int($trade / 2) if $trade 10000; $trade -= 5000; msg( 海賊名声が上がりました!交易名声が大幅ダウン! ) get_port($area,$port); event_write( $nameが$p_nameの$cnameを攻め落としました! ); } else { set_city } play; } # Sub City Battle Limit # $battle_line=id,time△id,time△time sub cb_limit { my $city_cont = int($cont * 3); my @battled = split(/△/,$battle_line); my $last_b = pop(@battled); my $now = time; if ( ($now - $last_b)/60 $city_cont ) { play( $city_cont分以内に続けて町を攻撃できません ); exit } $battle_line = join( △ , @battled , $now); } # Sub I Lost # sub i_lost { fleet; $rate = $total ? 1 - ($ship[$i_atked][1] / $total) 0; $food = int($food * $rate); $sailor = int($sailor * $rate); @my_lt = split(/△/,$load); foreach (0 .. $#my_lt) { ($load_name,$load_quan) = split(/,/,$my_lt[$_]); $load_quan = int($load_quan * $rate); push(@my_load , $load_name,$load_quan ) if $load_quan != 0; } $load = join( △ , @my_load); splice(@ship_ind , $i_atked ,1 ); } 1;
https://w.atwiki.jp/n_f_traders/pages/91.html
名前 コメント QlsgMCghMwOxtjYOP -- dqvenm (2009-03-05 17 54 10) 【CSVデータ】交易品―カンガルー肉、ワニ肉、ティーツリー、ニョクマム、ミモザ、マカダミアナッツ、ユーカリ追加。 -- ギロチン (2007-08-29 11 19 48) 【CSVデータ】都市―カカドゥ、ホバート、ワンガヌイ追加。 -- ギロチン (2007-08-29 11 18 45) 【CSVデータ】地域―オセアニア追加。 -- ギロチン (2007-08-29 11 18 18) ページタイトルの修正及び変更。リンク、既リンク文字色、他の変更。 -- ギロチン (2007-08-22 10 38 07) 購入可能都市のデータ行の文字色、背景色を変更(文字:緑、背景:黄緑、薄緑) -- ギロチン (2007-08-22 10 36 59) 【CSVデータ】交易品データ嗜好品区分のアーモンドである所がアーモンド油になっていた点を修正 -- ギロチン (2007-08-15 20 39 49) 交易品名から検索ページの調味料の位置を変更 -- ギロチン (2007-08-15 14 54 43) 都市主体ページにおける交易品基本価格の表示場所を変更 -- ギロチン (2007-08-15 14 52 46) 都市名主体表示ページの各種バグを修正(名産価格が計算されない点等) -- ギロチン (2007-08-15 14 44 52) 更新用インプットページを都市名からに対応 -- ギロチン (2007-08-15 14 44 03) 都市名主体表示CGIと交易品名主体表示CGIをリンク -- ギロチン (2007-08-15 14 43 37) 交易品名からの検索ページと都市名からの検索ページをリンク -- ギロチン (2007-08-15 14 43 02) 都市名からの検索ページ、都市名主体ページCGIをUP -- ギロチン (2007-08-15 14 42 37) 8/15データバックアップ -- ギロチン (2007-08-15 14 41 52) 【CSVデータ】交易品データの工業品区分の木材である所が材木になっていた点を修正 -- ギロチン (2007-08-14 22 13 23) 【CSVデータ】交易品データの宝石区分の象牙である所が象牙細工になっていた点を修正 -- ギロチン (2007-08-14 22 12 49) 【CSVデータ】都市データからアルギンが抜けていた点を修正。 -- ギロチン (2007-08-14 22 12 23) 交易品データCSVファイルに空白行ができてしまうバグを修正 -- ギロチン (2007-08-12 17 22 27) データ表から交易品名指定ページへの「戻る」のリンクを追加 -- ギロチン (2007-08-12 17 19 00) 下記に伴い全交易品データ価格を修正 -- ギロチン (2007-08-12 17 16 34) 関税有都市での取扱交易品価格算出におけるバグを修正。 -- ギロチン (2007-08-12 17 16 08) ↓以下が初期UPより現在までの修正点↓ -- ギロチン (2007-08-10 02 02 08) 交易品で検索するページに調味料が表示されなかったことを修正 -- ギロチン (2007-08-10 02 01 45) 実際に赤字の場合に税率に関わらず税金は0になるよう修正 -- ギロチン (2007-08-10 01 59 07) CGIの変更点を列挙するページを作成 -- ギロチン (2007-08-10 01 58 12)
https://w.atwiki.jp/n_f_traders/pages/87.html
#!c /perl/bin/perl $CHARSET= Shift_JIS ; $CsvCity= ./city.csv ; $CsvItem= ./item.csv ; $CsvCulture= ./culture.csv ; $CsvMain= ./main.csv ; $CssDesign= ./design.css ; $CgiMain= ./main.cgi ; loadFormdata(); loadCsvfile(); if($FORM{ from } eq item ){ processPI(); printInput(); }else{ writeData(); printBackpage(); } exit; sub loadFormdata { my ($query, $pair, @pairs); if($ENV{ REQUEST_METHOD } eq POST ) { read(STDIN, $query, $ENV{ CONTENT_LENGTH }); } else { $query = $ENV{ QUERY_STRING }; } @pairs = split(/ /, $query); foreach $pair (@pairs) { my ($key, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $FORM{$key} = $value; } } sub loadCsvfile { open(FileCity," $CsvCity") or printErrorpage("Cityデータファイルが開けません"); eval{flock(FileCity,1)}; @DataCity= FileCity ; close FileCity; open(FileItem," $CsvItem") or printErrorpage("Itemデータファイルが開けません"); eval{flock(FileItem,1)}; @DataItem= FileItem ; close FileItem; open(FileCulture," $CsvCulture") or printErrorpage("Cultureデータファイルが開けません"); eval{flock(FileCulture,1)}; @DataCulture= FileCulture ; close FileCulture; open(FileMain," $CsvMain") or printErrorpage("Mainデータファイルが開けません"); eval{flock(FileMain,1)}; @DataMain= FileMain ; close FileMain; } sub processPI { my($i); LOOPPPIITEM for($i=0;$i @DataItem;++$i){ my($diNumber,$diName,$diCategory,$diClass,$diCulture,$diPrice)=split(/,/,$DataItem[$i]); if($diNumber==$FORM{ item }){ $GlItem{ name }=$diName; last LOOPPPIITEM; } } LOOPPPICITY for($i=0;$i @DataCity;++$i){ my($dcNumber,$dcName,$dcCulture,$dcAlliance)=split(/,/,$DataCity[$i]); if($dcNumber==$FORM{ city }){ $GlCity{ name }=$dcName; last LOOPPPICITY; } } } sub printInput { print qq(Content-type text/plain; charset=$CHARSET\n\n); print qq( HTML HEAD \n); print qq( TITLE NFT INPUT /TITLE \n); print qq( LINK REL="stylesheet" HREF="$CssDesign" TYPE="text/css" ); print qq( /HEAD BODY \n); print qq( FORM ACTION="./input.cgi" METHOD="POST" \n); print qq( INPUT TYPE="hidden" name="from" value="input" \n); print qq( INPUT TYPE="radio" name="direct" value="0" CHECKED 売/); print qq( INPUT TYPE="radio" name="direct" value="1" 買 BR \n); print qq(都市:$GlCity{ name } INPUT TYPE="hidden" name="city" value="$FORM{ city }" BR \n); print qq(交易品:$GlItem{ name } INPUT TYPE="hidden" name="item" value="$FORM{ item }" BR \n); print qq(価格 INPUT TYPE="text" name="price" value="." size="10" BR \n); print qq(仕入価格 INPUT TYPE="text" name="purchase" value="." size="10" BR \n); print qq(相場 INPUT TYPE="text" name="market" value="." size="10" % BR \n); print qq(税率 INPUT TYPE="text" name="tax" value="." size="10" % BR \n); print qq( INPUT TYPE="submit" VALUE="データ登録" /FORM \n); print qq( /BODY /HTML ); } sub pickupTime { my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); my $yyyy=$year+1900; my $mm=$mon+1; my $dd=$mday; if($mm 10){$mm= 0 .$mm;} if($dd 10){$dd= 0 .$dd;} $FORM{ update }=($yyyy. - .$mm. - .$dd); } sub writeData { pickupTime(); my($dmNumber,$dmUpdate,$dmCity,$dmItem,$dmDirect,$dmPrice,$dmMarket,$dmPurchase,$dmTax)=split(/,/,$DataMain[$#DataMain]); $FORM{ number }=$dmNumber+1; //ロレンソ修正箇所スタート $kaigyou="", $kaigyou =~ s/\n//; push(@DataMain,($FORM{ number }. , .$FORM{ update }. , .$FORM{ city }. , .$FORM{ item }. , .$FORM{ direct }. , .$FORM{ price }. , .$FORM{ market }. , .$FORM{ purchase }. , .$FORM{ tax }. , .$kaigyou)); //ロレンソ修正箇所終わり open(FileMain," $CsvMain") or printErrorpage("Mainデータファイルが開けません"); eval{flock(FileMain,2)}; print FileMain @DataMain; close FileMain; } sub printBackpage { print qq(Content-type text/html; charset=$CHARSET\n\n); print qq( HTML HEAD \n); print qq( META HTTP-EQUIV="refresh" CONTENT="1;URL=$CgiMain?item=$FORM{ item }" ); print qq( TITLE NFT データ入力終了 /TITLE /HEAD BODY \n); print qq(1秒後に戻ります。 BR \n); print qq( A HREF="$CgiMain?item=$FORM{ item }" 戻る /A /BODY /HTML ) } sub printErrorpage { print qq(Content-type text/html; charset=$CHARSET\n\n); print qq( HTML HEAD TITLE NFT Error /TITLE /HEAD ); print qq( BODY エラー:$_[0] /BODY /HTML ); exit; }
https://w.atwiki.jp/nitro55/pages/16.html
CGI
https://w.atwiki.jp/ibibi/pages/28.html
#!/usr/bin/perl use lib /usr/local/lib/perl/cgi-lib ; use CGI; #use Pg; $query = new CGI; $name = $query- param( name ); $fileLineNumber = $query- param( number ); $outputnumber = $fileLineNumber - 1; #$word = $query- param( word ); $firstChecker = $query- param( firstChecker ); #@q1 = $query- param( Q1 ); #$q1num = scalar(@Q1); #チェックボックスにチェックした数 #参考 :http //chaichan.web.infoseek.co.jp/qa4000/qa4037.htm $q2 = $query- param( Q2 ); $q3 = $query- param( Q3 ); $q4 = $query- param( Q4 ); $q5 = $query- param( Q5 ); $q6 = $query- param( Q6 ); $q7 = $query- param( Q7 ); $q8 = $query- param( Q8 ); $q9 = $query- param( Q9 ); $q10 = $query- param( Q10 ); $q11 = $query- param( Q11 ); $q12 = $query- param( Q12 ); $q13 = $query- param( Q13 ); $q14 = $query- param( Q14 ); $q15 = $query- param( Q15 ); $q16 = $query- param( Q16 ); $q17 = $query- param( Q17 ); $q18 = $query- param( Q18 ); $q19 = $query- param( Q19 ); $q20 = $query- param( Q20 ); $q21 = $query- param( Q21 ); $q22 = $query- param( Q22 ); $q23 = $query- param( Q23 ); $q24 = $query- param( Q24 ); $q25 = $query- param( Q25 ); $q26 = $query- param( Q26 ); $q27 = $query- param( Q27 ); $qfree = $query- param( Qfree ); print "Content-type text/html\n\n"; print " HTML HEAD META HTTP-EQUIV= Content-Type CONTENT= text/html;CHARSET=UTF8 \n"; print " TITLE アンケートページ /TITLE /HEAD /HTML \n"; print " BODY \n"; #HTMLをブラウザに送信 $outputLine = "$name,$outputnumber,@q1[0..8],$q2,$q3,$q4,$q5,$q6,$q7,$q8,$q9,$q10,$q11,$q\ 12,$q13,$q14,$q15,$q16,$q17,$q18,$q19,$q20,$q21,$q22,$q23,$q24,$q25,$q26,$q27,"; $outputLine =~ s/\outputLine*$//; #改行コード取り去り #print "$outputLine"; #それぞれのクエスチョンに0 ~8までの評価をアウトプットしてもらう #ひとつ前のページの入力結果が合っているかどうか (矛盾がないか)を判定 @checkRadio = ($q2, $q3, $q4, $q5, $q6, $q7, $q8, $q9, $q10, $q11, $q12, $q13, $q14, $q15\ , $q16, $q17, $q18, $q19, $q20, $q21, $q22, $q23, $q24, $q25, $q26, $q27); $checkCounter = 0; $checkError = -1; $checkBox = -1; if($fileLineNumber != 1){ for($i=0;$i 26;$i++){ if($checkRadio[$i] == ""){ $checkError = $i+1; print " font color= red $checkError番目の音声が評価されていません。 /font B\ R \n"; } } } #for # if ($_ != "") { # $checkBox = 0; # } # $checkCounter++; #} #if ( ($checkBox == -1) ($firstChecker == 0) ) { # print " font color= red 一つ以上の項目にチェックを入れてください。 /font BR \n"; # print " font color= red ブラウザの「戻る」ボタンを押して前の画面に戻るか、この画面\\ であらためて入力してください。 /font BR \n"; # $fileLineNumber = $fileLineNumber - 1; # $checkError = 0; #} #上の判定の結果 、入力にエラーがなければ、ひとつ前のページの結果を書き出す if ($checkError == -1) { #現在時刻も出力 $times = time(); $outputLine = "$times,$outputLine"; $outputLine .= "$qfree"; open(OUT, " resultdata.csv"); print(OUT "$outputLine\n"); close(OUT); }else{ print " font color= red ブラウザの「戻る」ボタンを押して前の画面に戻り入力してくださ\ い。 /font BR \n"; } #回答対象の番号をセット $counterTotal = 100; $lineCheck = -1; for ($counter=1;$counter =$counterTotal;$counter++) { if ($counter == $fileLineNumber) { print " H1 音声印象評定アンケート /H1 \n"; print " HR \n"; print " B A HREF=\"data/$counter.WAV\" target=\"_blank\" $counter /A /B ($coun\ ter / $counterTotal) BR \n"; #$word = $xx; $counterNext = $counter + 1; print" FORM NAME= form METHOD= POST ACTION= question.cgi \n"; print" INPUT TYPE= hidden NAME= number VALUE= $counterNext \n"; $textSpace = " nbsp; nbsp nbsp; nbsp"; #余白の長さを指定 # $text1 = "(多少感じられる)"; # $text5 = "(強く感じられる)"; $space = " nbsp; nbsp nbsp; nbsp"; print "上のリンクをクリックして音声を聴き、次の全ての項目について、その印象がどれ\ くらいか、1から7の7段階の評価で選んでください。 BR \n"; print "各項目について中立の印象は4になります。中立の場合には必ず4にチェックして\ ください。 BR \n"; print "音声は何度聴いても構いません。 BR \n"; print " BR \n"; print " TABLE cellspacing=1 cellpadding=4 \n"; $i=1; print " tr td $space /td td B $i /B 低い声(1)~高い声(7) /td td nbsp; nb\ sp nbsp /td td input type= radio name= Q2 value= 1 1 /td td input type= rad\ io name= Q2 value= 2 2 /td td input type= radio name= Q2 value= 3 3 /td td in\ put type= radio name= Q2 value= 4 4 /td td input type= radio name= Q2 value= 5 5\ /td td input type= radio name= Q2 value= 6 6 /td td input type= radio name= Q2\ value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B かすれた声(1)~澄んだ声(7) /td td nb\ sp; nbsp nbsp /td td input type= radio name= Q3 value= 1 1 /td td input typ\ e= radio name= Q3 value= 2 2 /td td input type= radio name= Q3 value= 3 3 /td \ td input type= radio name= Q3 value= 4 4 /td td input type= radio name= Q3 value\ = 5 5 /td td input type= radio name= Q3 value= 6 6 /td td input type= radio na\ me= Q3 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 落ち着きのない声(1)~落ち着きのある声(7\ ) /td td nbsp nbsp /td td input type= radio name= Q4 value= 1 1 /td \ td input type= radio name= Q4 value= 2 2 /td td input type= radio name= Q4 valu\ e= 3 3 /td td input type= radio name= Q4 value= 4 4 /td td input type= radio n\ ame= Q4 value= 5 5 /td td input type= radio name= Q4 value= 6 6 /td td input t\ ype= radio name= Q4 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 弱々しい声(1)~迫力のある声(7) /td td\ nbsp nbsp /td td input type= radio name= Q5 value= 1 1 /td td input\ type= radio name= Q5 value= 2 2 /td td input type= radio name= Q5 value= 3 3 /\ td td input type= radio name= Q5 value= 4 4 /td td input type= radio name= Q5 v\ alue= 5 5 /td td input type= radio name= Q5 value= 6 6 /td td input type= radio\ name= Q5 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 細い声(1)~太い声(7) /td td nbsp; nb\ sp nbsp /td td input type= radio name= Q6 value= 1 1 /td td input type= rad\ io name= Q6 value= 2 2 /td td input type= radio name= Q6 value= 3 3 /td td in\ put type= radio name= Q6 value= 4 4 /td td input type= radio name= Q6 value= 5 5\ /td td input type= radio name= Q6 value= 6 6 /td td input type= radio name= Q6\ value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 張りのない声(1)~張りのある声(7) /td \ td nbsp nbsp /td td input type= radio name= Q7 value= 1 1 /td td inp\ ut type= radio name= Q7 value= 2 2 /td td input type= radio name= Q7 value= 3 3 \ /td td input type= radio name= Q7 value= 4 4 /td td input type= radio name= Q7 \ value= 5 5 /td td input type= radio name= Q7 value= 6 6 /td td input type= rad\ io name= Q7 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 声の小さい(1)~声の大きい(7) /td td \ nbsp; nbsp nbsp /td td input type= radio name= Q8 value= 1 1 /td td input t\ ype= radio name= Q8 value= 2 2 /td td input type= radio name= Q8 value= 3 3 /td\ td input type= radio name= Q8 value= 4 4 /td td input type= radio name= Q8 val\ ue= 5 5 /td td input type= radio name= Q8 value= 6 6 /td td input type= radio \ name= Q8 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 元気のない(1)~元気のある(7) /td td \ nbsp; nbsp nbsp /td td input type= radio name= Q9 value= 1 1 /td td input t\ ype= radio name= Q9 value= 2 2 /td td input type= radio name= Q9 value= 3 3 /td\ td input type= radio name= Q9 value= 4 4 /td td input type= radio name= Q9 val\ ue= 5 5 /td td input type= radio name= Q9 value= 6 6 /td td input type= radio \ name= Q9 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B ぼそぼそとした(1)~はっきりした(7) /td\ td nbsp nbsp /td td input type= radio name= Q10 value= 1 1 /td td \ input type= radio name= Q10 value= 2 2 /td td input type= radio name= Q10 value= \ 3 3 /td td input type= radio name= Q10 value= 4 4 /td td input type= radio nam\ e= Q10 value= 5 5 /td td input type= radio name= Q10 value= 6 6 /td td input t\ ype= radio name= Q10 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 遅い(1)~速い(7) /td td nbsp; nbsp n\ bsp; nbsp /td td input type= radio name= Q11 value= 1 1 /td td input type= radio \ name= Q11 value= 2 2 /td td input type= radio name= Q11 value= 3 3 /td td inp\ ut type= radio name= Q11 value= 4 4 /td td input type= radio name= Q11 value= 5 \ 5 /td td input type= radio name= Q11 value= 6 6 /td td input type= radio name= \ Q11 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B のんきな(1)~せわしげな(7) /td td nb\ sp; nbsp nbsp /td td input type= radio name= Q12 value= 1 1 /td td input ty\ pe= radio name= Q12 value= 2 2 /td td input type= radio name= Q12 value= 3 3 /t\ d td input type= radio name= Q12 value= 4 4 /td td input type= radio name= Q12 \ value= 5 5 /td td input type= radio name= Q12 value= 6 6 /td td input type= rad\ io name= Q12 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B しどろもどろな(1)~なめらかな(7) /td \ td nbsp nbsp /td td input type= radio name= Q13 value= 1 1 /td td in\ put type= radio name= Q13 value= 2 2 /td td input type= radio name= Q13 value= 3 \ 3 /td td input type= radio name= Q13 value= 4 4 /td td input type= radio name=\ Q13 value= 5 5 /td td input type= radio name= Q13 value= 6 6 /td td input typ\ e= radio name= Q13 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 歯切れの悪い(1)~歯切れの良い(7) /td \ td nbsp nbsp /td td input type= radio name= Q14 value= 1 1 /td td in\ put type= radio name= Q14 value= 2 2 /td td input type= radio name= Q14 value= 3 \ 3 /td td input type= radio name= Q14 value= 4 4 /td td input type= radio name=\ Q14 value= 5 5 /td td input type= radio name= Q14 value= 6 6 /td td input typ\ e= radio name= Q14 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 落ち着きのない(1)~落ち着きのある(7) /\ td td nbsp nbsp /td td input type= radio name= Q15 value= 1 1 /td td\ input type= radio name= Q15 value= 2 2 /td td input type= radio name= Q15 value\ = 3 3 /td td input type= radio name= Q15 value= 4 4 /td td input type= radio n\ ame= Q15 value= 5 5 /td td input type= radio name= Q15 value= 6 6 /td td input\ type= radio name= Q15 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 静的な(1)~動的な(7) /td td nbsp; nb\ sp nbsp /td td input type= radio name= Q16 value= 1 1 /td td input type= ra\ dio name= Q16 value= 2 2 /td td input type= radio name= Q16 value= 3 3 /td td \ input type= radio name= Q16 value= 4 4 /td td input type= radio name= Q16 value=\ 5 5 /td td input type= radio name= Q16 value= 6 6 /td td input type= radio na\ me= Q16 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 穏やかな(1)~激しい(7) /td td nbsp; \ nbsp nbsp /td td input type= radio name= Q17 value= 1 1 /td td input type= \ radio name= Q17 value= 2 2 /td td input type= radio name= Q17 value= 3 3 /td t\ d input type= radio name= Q17 value= 4 4 /td td input type= radio name= Q17 valu\ e= 5 5 /td td input type= radio name= Q17 value= 6 6 /td td input type= radio \ name= Q17 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 嫌いな(1)~好きな(7) /td td nbsp; nb\ sp nbsp /td td input type= radio name= Q18 value= 1 1 /td td input type= ra\ dio name= Q18 value= 2 2 /td td input type= radio name= Q18 value= 3 3 /td td \ input type= radio name= Q18 value= 4 4 /td td input type= radio name= Q18 value=\ 5 5 /td td input type= radio name= Q18 value= 6 6 /td td input type= radio na\ me= Q18 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 不快な(1)~心地よい(7) /td td nbsp; \ nbsp nbsp /td td input type= radio name= Q19 value= 1 1 /td td input type= \ radio name= Q19 value= 2 2 /td td input type= radio name= Q19 value= 3 3 /td t\ d input type= radio name= Q19 value= 4 4 /td td input type= radio name= Q19 valu\ e= 5 5 /td td input type= radio name= Q19 value= 6 6 /td td input type= radio \ name= Q19 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 感じの悪い(1)~感じの良い(7) /td td \ nbsp; nbsp nbsp /td td input type= radio name= Q20 value= 1 1 /td td input \ type= radio name= Q20 value= 2 2 /td td input type= radio name= Q20 value= 3 3 \ /td td input type= radio name= Q20 value= 4 4 /td td input type= radio name= Q20\ value= 5 5 /td td input type= radio name= Q20 value= 6 6 /td td input type= r\ adio name= Q20 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 親しみにくい(1)~親しみやすい(7) /td \ td nbsp nbsp /td td input type= radio name= Q21 value= 1 1 /td td in\ put type= radio name= Q21 value= 2 2 /td td input type= radio name= Q21 value= 3 \ 3 /td td input type= radio name= Q21 value= 4 4 /td td input type= radio name=\ Q21 value= 5 5 /td td input type= radio name= Q21 value= 6 6 /td td input typ\ e= radio name= Q21 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B かたい(1)~やわらかい(7) /td td nbsp\ ; nbsp nbsp /td td input type= radio name= Q22 value= 1 1 /td td input type\ = radio name= Q22 value= 2 2 /td td input type= radio name= Q22 value= 3 3 /td \ td input type= radio name= Q22 value= 4 4 /td td input type= radio name= Q22 va\ lue= 5 5 /td td input type= radio name= Q22 value= 6 6 /td td input type= radio\ name= Q22 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 悲しくなる(1)~嬉しくなる(7) /td td \ nbsp nbsp /td td input type= radio name= Q23 value= 1 1 /td td inpu\ t type= radio name= Q23 value= 2 2 /td td input type= radio name= Q23 value= 3 \ 3 /td td input type= radio name= Q23 value= 4 4 /td td input type= radio name=\ Q23 value= 5 5 /td td input type= radio name= Q23 value= 6 6 /td td input ty\ pe= radio name= Q23 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 重々しい(1)~軽やかな(7) /td td nbs\ p; nbsp nbsp /td td input type= radio name= Q24 value= 1 1 /td td input ty\ pe= radio name= Q24 value= 2 2 /td td input type= radio name= Q24 value= 3 3 /\ td td input type= radio name= Q24 value= 4 4 /td td input type= radio name= Q24\ value= 5 5 /td td input type= radio name= Q24 value= 6 6 /td td input type= \ radio name= Q24 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 無礼な(1)~礼儀正しい(7) /td td nbs\ p; nbsp nbsp /td td input type= radio name= Q25 value= 1 1 /td td input ty\ pe= radio name= Q25 value= 2 2 /td td input type= radio name= Q25 value= 3 3 /\ td td input type= radio name= Q25 value= 4 4 /td td input type= radio name= Q25\ value= 5 5 /td td input type= radio name= Q25 value= 6 6 /td td input type= \ radio name= Q25 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 下品な(1)~上品な(7) /td td nbsp; n\ bsp nbsp /td td input type= radio name= Q26 value= 1 1 /td td input type= \ radio name= Q26 value= 2 2 /td td input type= radio name= Q26 value= 3 3 /td \ td input type= radio name= Q26 value= 4 4 /td td input type= radio name= Q26 va\ lue= 5 5 /td td input type= radio name= Q26 value= 6 6 /td td input type= radi\ o name= Q26 value= 7 7 /td /tr \n"; $i++; print " tr td $space /td td B $i /B 粗野な(1)~繊細な(7) /td td nbsp; n\ bsp nbsp /td td input type= radio name= Q27 value= 1 1 /td td input type= \ radio name= Q27 value= 2 2 /td td input type= radio name= Q27 value= 3 3 /td \ td input type= radio name= Q27 value= 4 4 /td td input type= radio name= Q27 va\ lue= 5 5 /td td input type= radio name= Q27 value= 6 6 /td td input type= radi\ o name= Q27 value= 7 7 /td /tr \n"; print " /TABLE \n"; print " BR \n"; print "何かお気づきのことがありましたら自由にお書きください。\n"; print " table cellspacing=0 cellpadding=0 \n"; print " tr td $space /td td textarea name= Qfree cols=60 rows=3 /textarea \ /td /tr \n"; print " /table \n"; print " INPUT TYPE= hidden NAME= name VALUE= $name BR \n"; # print " INPUT TYPE= hidden NAME= word VALUE= $word BR \n"; print " INPUT TYPE= hidden NAME= firstChecker VALUE= 0 BR \n"; print" INPUT TYPE= submit NAME= submit VALUE= 次へ BR \n"; print" /FORM \n"; print " A HREF= http //shower.human.waseda.ac.jp/~kikuchi/k-lab/questionaire/200\ 812fukuda/ アンケートトップページへ /A BR \n"; print " BR \n"; $lineCheck = $counter; } } close(IN); if ($lineCheck == -1) { print "質問は以上です。お疲れ様でした。 BR \n"; print "アンケートにご協力いただき、ありがとうございました。 BR \n"; print "お手数ですが、終りましたことを A HREF=\"mailto tksh_fkd@moegi.waseda.jp\" 担\\ 当者(福田) /A まで御連絡下さい。 BR \n"; print " HR \n"; print " A HREF= http //shower.human.waseda.ac.jp/~kikuchi/k-lab/questionaire/200812f\ ukuda/ アンケートトップページへ /A BR \n"; print " /BODY \n"; print " /HTML \n"; } print " /BODY \n"; print " /HTML \n";
https://w.atwiki.jp/heppokosoft/pages/14.html
CGI配布サイトで配布されている、パスワード認証をするCGI、危ないですよ。 (きちんとしているのもあります) 特に、URLにパスワードを含めるやつは、とても危険です。 JavaScriptやCGIなどで、簡単にパスワードやIDが判明します。 どうすればいいんでしょう・・・・? 詳細
https://w.atwiki.jp/hayate-tcg/pages/354.html
このページはいくつか作られてきたハヤテTCG用の対戦支援のCGIやフラッシュのまとめページです 新しく作られたものは上に付け足すようにお願いします 緑川美春氏作成 新http //p-server.no-ip.info/~hayate/cgi/hayate_field/hayate_field_flash6.swf 旧http //p-server.no-ip.info/~hayate/cgi/hayate_field/index.cgi 使い方はこちら 避難所http //www6.atpages.jp/miharumidorikawa/index.html 本人が忙しい為更新はしばらく無いかも チャットではコレを使ってます 新旧間での互換性アリ あくまで表示してるだけなので、他にチャットのようなものが必要 Kind氏作成 http //kind1010.hp.infoseek.co.jp/flash/hayate_tcg/ 相手の場を記録するだけのフラッシュ ネットで相手とつながったりはできません
https://w.atwiki.jp/aurora72source2/pages/29.html
aaa #!/usr/local/bin/perl # 上の1行の前には空行も空白文字もはいらないようにしてください。 # perlのパス名はプロバイダや環境に合わせて変更してください。 # # CGIのヘッダを書き出します。通常は text/html を指定します。 # print "Content-type text/html\n"; print "\n"; # # HTMLを書き出します。 # "~\n" の ~ の部分に HTML を記述しますが、ダブルクォーテーション( " ) # を用いる際は " の代わりに を用いるか、\" のように、バックスラッシュ( \ ) # を前に置いてください。 # print " HTML \n"; print " HEAD \n"; print " TITLE CGI TEST /TITLE \n"; print " /HEAD \n"; print " BODY BGCOLOR= #FFFFFF TEXT= #000000 \n"; print " XMP \n"; # # wwwperl.cgi?引数1+引数2 で指定したコマンド引数を書き出します。 # # #print " hr \n"; # print "=================================\n"; print "コマンド引数\n"; print "=================================\n"; for ($i = 0; $i = $#ARGV; $i++) { print "ARGV[$i] = [ $ARGV[$i] ]\n"; } print "\n"; print " hr \n"; # # CGIスクリプトが参照可能な環境変数を書き出します。 # print "=================================\n"; print "環境変数\n"; print "=================================\n"; print "AUTH_TYPE = [ $ENV{ AUTH_TYPE } ]\n"; print "CONTENT_LENGTH = [ $ENV{ CONTENT_LENGTH } ]\n"; print "CONTENT_TYPE = [ $ENV{ CONTENT_TYPE } ]\n"; print "GATEWAY_INTERFACE = [ $ENV{ GATEWAY_INTERFACE } ]\n"; print "HTTP_ACCEPT = [ $ENV{ HTTP_ACCEPT } ]\n"; print "HTTP_FORWARDED = [ $ENV{ HTTP_FORWARDED } ]\n"; print "HTTP_REFERER = [ $ENV{ HTTP_REFERER } ]\n"; print "HTTP_USER_AGENT = [ $ENV{ HTTP_USER_AGENT } ]\n"; print "HTTP_X_FORWARDED_FOR = [ $ENV{ HTTP_X_FORWARDED_FOR } ]\n"; print "PATH_INFO = [ $ENV{ PATH_INFO } ]\n"; print "PATH_TRANSLATED = [ $ENV{ PATH_TRANSLATED } ]\n"; print "QUERY_STRING = [ $ENV{ QUERY_STRING } ]\n"; print "REMOTE_ADDR = [ $ENV{ REMOTE_ADDR } ]\n"; print "REMOTE_HOST = [ $ENV{ REMOTE_HOST } ]\n"; print "REMOTE_IDENT = [ $ENV{ REMOTE_IDENT } ]\n"; print "REMOTE_USER = [ $ENV{ REMOTE_USER } ]\n"; print "REQUEST_METHOD = [ $ENV{ REQUEST_METHOD } ]\n"; print "SCRIPT_NAME = [ $ENV{ SCRIPT_NAME } ]\n"; print "SERVER_NAME = [ $ENV{ SERVER_NAME } ]\n"; print "SERVER_PORT = [ $ENV{ SERVER_PORT } ]\n"; print "SERVER_PROTOCOL = [ $ENV{ SERVER_PROTOCOL } ]\n"; print "SERVER_SOFTWARE = [ $ENV{ SERVER_SOFTWARE } ]\n"; print "\n"; # # フォームに指定した値を読み込んで、書き出します。 # print "=================================\n"; print "フォーム変数\n"; print "=================================\n"; if ($ENV{ REQUEST_METHOD } eq "POST") { # POSTであれば標準入力から読込みます read(STDIN, $query_string, $ENV{ CONTENT_LENGTH }); } else { # GETであれば環境変数から読込みます $query_string = $ENV{ QUERY_STRING }; } # 「変数名1=値1 変数名2=値2」の形式をアンパサンド( )で分解します @a = split(/ /, $query_string); # それぞれの「変数名=値」について foreach $a (@a) { # イコール( = )で分解します ($name, $value) = split(/=/, $a); # + や %8A などをデコードします $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; # 変数名と値を書き出します print "$name = $value\n"; # 後で使用する場合は、$FORM{ 変数名 } に代入しておきます $FORM{$name} = $value; } # # # open(IN, "xxxx.txt"); while ( IN ) { print $_; } close(IN); # # # #open(IN, "/usr/local/bin/nkf -e datafile.txt |"); open(IN, "ls -la |"); while ( IN ) { print $_; } close(IN); #open(IN01, "_form.f"); #open(IN01, "_form.clf"); #open(IN01, "_form.f"); #while ( IN01 ) { # print $_; #} #close(IN01); # # HTMLの終わりの部分を書き出します。 # print " /XMP \n"; print " /BODY \n"; print " /HTML \n"; print "\n"; aaa